
 
 ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R E C O L O R   S P E E D   T E S T E R   -   2 0 0   L I N E S 
 
 ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h                                                   m S 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h _ A n d _ C o n t a i n i n g             1 0 0   m S 
 
 ' L a b e l   p i p p o 
 
 ' R e t u r n 
 
 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h                                             6 4   m S 
 
 F o r   v 1   =   0   T o   9 
 
 	 
 
 N e x t 
 
 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h                                             5 0   m S 
 
 V a r i a b l e   S t r i n g   T e s t 	 	 	 	 	 	 	   ' B r e a k p o i n t 
 
 V a r i a b l e   S t r i n g   R e s u l t 	 	 	 	 	 	 	   ' B r e a k p o i n t 
 
 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h                                             8 0   m S 
 
 I f   v 1   =   v 2 
 
 E n d I f 
 
 
 
 
 
 B u t t o n   1   T e x t   S t a r t 	 	 '   t h i s   i s   s t a r t 	 	 	   ' B r e a k p o i n t 
 
 B u t t o n   2   T e x t   " P M W   0 0 0 " 	 	 	 	 	 	 	   ' B r e a k p o i n t 
 
 B u t t o n   3   T e x t   " P M W   2 5 0 " 
 
 B u t t o n   4   T e x t   " P M W   3 5 0 " 
 
 B u t t o n   5   T e x t   " P M W   4 5 0 " 	 	 	 	 	 	 	   ' B r e a k p o i n t 
 
 B u t t o n   6   T e x t   " P M W   6 0 0 " 
 
 B u t t o n   7   T e x t   " P M W   7 5 0 " 
 
 B u t t o n   8   T e x t   " P W M   9 9 9 " 	 	 	 	 	 	 	   ' B r e a k p o i n t 
 
 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 
 
 K e y   5   	 	 	 G o s u b   R e d 
 
 K e y   R i g h t 	 	 G o s u b   Y e l l o w 
 
 K e y   L e f t   	 	 G o s u b   G r e e n 
 
 K e y   U p   	 	 	 G o s u b   C o l o r O f f 
 
 K e y   D o w n   	 	 G o s u b   R e a d C o u n t e r 
 
 K e y   P a g e u p 	 	 G o s u b   R e s e t C o u n t e r 
 
 K e y   P a g e d o w n 	 G o s u b   S o u n d s 
 
 K e y   M 	 	 	 G o s u b   C o l o r s 
 
 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h                                 1 0 0 . . 2 0 0   m S 
 
 '   - - - - - - -   C o l o r A l l L i n e s _ S t a r t i n g W i t h _ A n d _ C o n t a i n i n g     5 0 . . 1 0 0   m S 
 
 L a b e l   M a i n L o o p 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 ' 
 
 	 v 1   =   v 1   +   1 
 
 	 I f   v 1   >   5 0 
 
 	 	 v 1   =   0 
 
 	 	 G o s u b   C o l o r O f f 
 
 	 E n d I f 
 
 	 I f   v 1   >   4 9 
 
 	 	 G o s u b   G r e e n 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f 	 S l o t ( 6 )   >   5 0 0 
 
 	 	 G o s u b   S t a r t 
 
 	 E n d I f 
 
 G o t o   M a i n L o o p 
 
 
 
 L a b e l   S t a r t 
 
 	 S l o t ( 1 )   =   0 	 	 ' s t o p   m o t o r 
 
 	 v 1   =   2 5 0       	 	 ' s t a r t   m o t o r   m o v e 
 
 	 G o s u b   R e s e t C o u n t e r 
 
 	 G o s u b   R e a d C o u n t e r   '   C o u n t e r   =   V 9 
 
 	 v 2   =   v 9   +   5 5 0 0 
 
 	 L a b e l   L o o p 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 	 v 1   =   v 1   +   1 
 
 	 	 S l o t ( 1 )   =   v 1 
 
 	 	 G o s u b   r e a d c o u n t e r   '   C o u n t e r   =   V 9 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   c o u n t s 
 
 	 	 I f   v 2   < =   v 9 
 
 	 	 	 S l o t ( 1 )   =   0 
 
 	 	 	 S l o t ( 1 3 )   =   0 
 
 	 	 	 v 1   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 	 G o s u b   S o u n d s 
 
 	 	 G o s u b   C o l o r s 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   c u r r e n t 
 
 	 	 I f   S l o t ( 4 )   >   8 0 0 0 
 
 	 	 	 S l o t ( 1 )   =   0 
 
 	 	 	 G o s u b   R e d 
 
 	 	 	 v 1   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   L o o p 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l   " P M W   0 0 0 " 
 
 	 S l o t ( 1 )   =   0 
 
 R e t u r n 
 
 
 
 L a b e l   " P M W   2 5 0 " 
 
 	 S l o t ( 1 )   =   2 5 0 
 
 R e t u r n 
 
 
 
 L a b e l   " P M W   3 5 0 " 
 
 	 S l o t ( 1 )   =   3 5 0 
 
 R e t u r n 
 
 
 
 L a b e l   " P M W   4 5 0 " 
 
 	 S l o t ( 1 )   =   4 5 0 
 
 R e t u r n 
 
 
 
 L a b e l   " P M W   6 0 0 " 
 
 	 S l o t ( 1 )   =   6 0 0 
 
 R e t u r n 
 
 
 
 L a b e l     " P M W   7 5 0 " 
 
 	 S l o t ( 1 )   =   7 5 0 
 
 R e t u r n 
 
 
 
 L a b e l     " P W M   9 9 9 " 
 
 	 S l o t ( 1 )   =   9 9 9 
 
 R e t u r n 
 
 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ' - - - - -   s u b r o u t i n e   a r e a   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l   R e d 
 
 	 S l o t ( 7 )   =   1 0 0 0 	 	 ' r e d 
 
 	 S l o t ( 8 )   =   0 	 	 	 ' y e l l o w 
 
 	 S l o t ( 9 )   =   0 	 	 	 ' g r e e n 
 
 R e t u r n 
 
 
 
 L a b e l   Y e l l o w 
 
 	 S l o t ( 7 )   =   0 	 	 	 ' r e d 
 
 	 S l o t ( 8 )   =   1 0 0 0 	 	 ' y e l l o w 
 
 	 S l o t ( 9 ) 	 =   0 	 	 	 ' g r e e n 
 
 R e t u r n 
 
 
 
 L a b e l   G r e e n 
 
 	 S l o t ( 7 )   =   0 	 	 	 ' r e d 
 
 	 S l o t ( 8 )   =   0 	 	 	 ' y e l l o w 
 
 	 S l o t ( 9 )   =   1 0 0 0 	 	 ' g r e e n 
 
 R e t u r n 
 
 
 
 L a b e l   C o l o r O f f 
 
 	 S l o t ( 7 )   =   0 	 	 	 ' r e d 
 
 	 S l o t ( 8 )   =   0 	 	 	 ' y e l l o w 
 
 	 S l o t ( 9 )   =   0 	 	 	 ' g r e e n 
 
 R e t u r n 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '     T h e   c o u n t e r   i s   V 9   -     U S E   V 9   I N   Y O U R   C O D E 
 
 '     D o   n o t   u s e   v 7   a n d   v 8   i n   y o u r   c o d e 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l   R e a d C o u n t e r 
 
 	 v 8   =   S l o t ( 1 1 )       	 '   n e w   h a r d w a r e   v a l u e 
 
 	 v 9   =   v 9   +   ( v 8   -   v 7 ) 	 '   u p D a t e   t h e   c o u n t e r   ( V 9 )   w i t h   t h e   d i f f e r e n c e 
 
 	 I f   v 8   <   v 7   -   1 6 3 8 7 	 '   I f   n e w   h a r d w a r e   v a l u e   <   o l d   h a r d w a r e   v a l u e   -   1 / 4   r a n g e 
 
 	 	 v 9   =   v 9   +   6 5 5 3 6 	 '   t h e n   i n c r e a s e   t h e   c o u n t e r   ( V 9 ) 
 
 	 E n d I f 
 
 	 v 7   =   v 8 	 	 	 	 '   o l d   h a r d w a r e   v a l u e   =   n e w   h a r d w a r e   v a l u e 
 
 R e t u r n 
 
 
 
 L a b e l   R e s e t C o u n t e r 
 
 	 v 9   =   0       	 	 '   U s e r   c o u n t e r   v a l u e   ( V 9 ) 
 
 	 v 8   =   S l o t ( 1 1 ) 	 '   n e w   h a r d w a r e   v a l u e 
 
 	 v 7   =   v 8       	 	 '   o l d   h a r d w a r e   v a l u e 
 
 R e t u r n 
 
 
 
 L a b e l   S o u n d s 
 
 	 I f   S l o t ( 4 )   >   3 5 0 0 
 
 	 	 S l o t ( 1 3 )   =   5 0 0   +   ( S l o t ( 4 )   -   3 5 0 0 )   *   0 . 5 
 
 	 E l s e 
 
 	 	 S l o t ( 1 3 )   =   0 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   C o l o r s 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e     S l o t ( 4 )   >   6 0 0 0 
 
 	 	 	 G o s u b   R e d 
 
 	 	 C a s e     S l o t ( 4 )   >   3 5 0 0 
 
 	 	 	 G o s u b   Y e l l o w 
 
 	 	 C a s e E l s e 
 
 	 	 	 G o s u b   G r e e n 
 
 	 E n d S e l e c t 
 
 R e t u r n 
 
 
 
 
 
 
 
 ' = = = = = =   D U M M Y   A R E A   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   p i p p o   t e s t   r e s u l t     S t a r t   " P M W   0 0 0 "   l o o p 
 
 ' = = = = = =   T O   D O   A R E A   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 
 
 ' E X E C   S l o t ( 2 )   =   0 
 
 